Revista do CD-ROM 39

home *** CD-ROM | disk | FTP | other *** search

/ Revista do CD-ROM 39 / CD-ROM 39 / CD-ROM 39.iso / COLORDIC / MOUSE / PINTURA.FRM (.txt) < prev next >

Wrap

Visual Basic Form | 1996-01-22 | 73.1 KB | 2,087 lines

VERSION 2.00 Begin Form Pintura BackColor = &H00000000& BorderStyle = 0 'None ClientHeight = 3990 ClientLeft = 1080 ClientTop = 1530 ClientWidth = 7365 ControlBox = 0 'False FillColor = &H00FFFFFF& FillStyle = 0 'Solid ForeColor = &H00000000& Height = 4395 Left = 1020 LinkTopic = "Form1" MaxButton = 0 'False MinButton = 0 'False ScaleHeight = 461 ScaleMode = 3 'Pixel ScaleWidth = 640 Top = 1185 Visible = 0 'False Width = 7485 WindowState = 2 'Maximized Begin TextBox Text1 Height = 405 Left = 4980 TabIndex = 45 Text = "Text1" Top = 1590 Visible = 0 'False Width = 1995 End Begin PictureBox Cursor_Branco AutoRedraw = -1 'True Height = 480 Left = 6570 Picture = PINTURA.FRX:0000 ScaleHeight = 30 ScaleMode = 3 'Pixel ScaleWidth = 32 TabIndex = 20 Top = 2700 Visible = 0 'False Width = 510 End Begin PictureBox Picture_T tulo AutoSize = -1 'True BackColor = &H0000FFFF& BorderStyle = 0 'None Height = 1755 Left = 0 ScaleHeight = 117 ScaleMode = 3 'Pixel ScaleWidth = 643 TabIndex = 41 Top = 6060 Width = 9645 Begin PictureBox Painel BorderStyle = 0 'None FillStyle = 0 'Solid ForeColor = &H00FFFFFF& Height = 1485 Left = 0 Picture = PINTURA.FRX:A07A ScaleHeight = 99 ScaleMode = 3 'Pixel ScaleWidth = 640 TabIndex = 0 Top = 270 Width = 9600 Begin PictureBox Tom BorderStyle = 0 'None Height = 885 Left = 6930 Picture = PINTURA.FRX:13D36 ScaleHeight = 885 ScaleWidth = 435 TabIndex = 1 Top = 45 Visible = 0 'False Width = 435 Begin Label Tom_Bot BackStyle = 0 'Transparent Height = 285 Index = 2 Left = 30 TabIndex = 2 Top = 660 Width = 465 End Begin Label Tom_Bot BackStyle = 0 'Transparent Height = 285 Index = 1 Left = 0 TabIndex = 3 Top = 360 Width = 465 End Begin Label Tom_Bot BackStyle = 0 'Transparent Height = 285 Index = 0 Left = 0 TabIndex = 4 Top = 0 Width = 465 End End Begin CommandButton Command1 Caption = "Command1" Height = 435 Left = 8940 TabIndex = 5 Top = 930 Width = 585 End Begin Label A BackStyle = 0 'Transparent ForeColor = &H000000FF& Height = 975 Index = 1 Left = 7650 TabIndex = 6 Top = 300 Width = 1215 End Begin Label A BackStyle = 0 'Transparent ForeColor = &H000000FF& Height = 975 Index = 0 Left = 7650 TabIndex = 7 Top = 0 Width = 1215 End Begin Label Dire BackStyle = 0 'Transparent ForeColor = &H000000FF& Height = 555 Index = 1 Left = 8910 TabIndex = 8 Top = 150 Width = 555 End Begin Label Dire BackStyle = 0 'Transparent ForeColor = &H000000FF& Height = 555 Index = 0 Left = 30 TabIndex = 9 Top = 180 Width = 555 End Begin FXImage All_Balde Prop25 = 0 'Click on "..." for About Box AutoSize = 1 'Resize Control To Image BInnerColor1 = &H00808080& BInnerColor2 = &H00FFFFFF& BInnerStyle = 0 'None BInnerWidth = 1 BorderColor = &H00C0C0C0& BorderWidth = 0 BOuterColor1 = &H00808080& BOuterColor2 = &H00FFFFFF& BOuterStyle = 0 'None BOuterWidth = 1 CancelLoad = 0 'False CancelMode = 0 'None CancelRemove = 0 'False Capture = 1 'Capture Image CropX = 0 CropY = 0 DecompressMode = 1 'Speed more important DEffect1 = 0 'No Effect DEffect2 = 0 'No Effect DEffect3 = 0 'No Effect DMode = 0 'None FileName = "" FXEnabled = -1 'True GIFPassword = "" Height = 630 HFileName = "" Left = 1050 MDelay = 20 MEffect = 0 'No Effect MGrain = 10 Multitask = 0 'False Notify = 0 'False NotifyDelay = 0 Palette = 0 'Optimized Picture = PINTURA.FRX:148B2 Pointer = 0 'Default PointerMode = 0 'Inside a Hotspot ShowDithered = 1 'Floyd-Steinberg ShowFlipped = 0 'False ShowHourglass = 0 'False ShowReverse = 0 'False ShowRotated = 0 'None TBackColor = &H00000000& TDelay = 0 TEffect = 0 'No Effect TEnabled = 0 'False TForeColor = &H00000000& TGColor1 = &H00FF0000& TGColor2 = &H00000000& TGrain = 5 TGSteps = 16 TGStyle = 0 'Left To Right TOnly = 0 'False Top = 90 Transparent = 0 'False TransparentColor= &H00000000& TransparentMode = 0 'Update TStyle = 0 'Solid UpdateImage = -1 'True Visible = 0 'False Wand = 0 'False WandColor = &H00FFFFFF& WandWidth = 1 Width = 5850 End Begin Label Cor_Label BackStyle = 0 'Transparent Height = 555 Index = 0 Left = 1050 TabIndex = 28 Top = 90 Width = 465 End Begin Label Cor_Label BackStyle = 0 'Transparent Height = 555 Index = 1 Left = 1500 TabIndex = 29 Top = 90 Width = 465 End Begin Label Cor_Label BackStyle = 0 'Transparent Height = 555 Index = 2 Left = 1950 TabIndex = 30 Top = 90 Width = 465 End Begin Label Cor_Label BackStyle = 0 'Transparent Height = 555 Index = 3 Left = 2400 TabIndex = 31 Top = 90 Width = 465 End Begin Label Cor_Label BackStyle = 0 'Transparent Height = 555 Index = 4 Left = 2850 TabIndex = 32 Top = 90 Width = 465 End Begin Label Cor_Label BackStyle = 0 'Transparent Height = 555 Index = 5 Left = 3300 TabIndex = 33 Top = 90 Width = 465 End Begin Label Cor_Label BackStyle = 0 'Transparent Height = 555 Index = 6 Left = 3750 TabIndex = 34 Top = 90 Width = 465 End Begin Label Cor_Label BackStyle = 0 'Transparent Height = 555 Index = 7 Left = 4200 TabIndex = 35 Top = 90 Width = 465 End Begin Label Cor_Label BackStyle = 0 'Transparent Height = 555 Index = 8 Left = 4650 TabIndex = 36 Top = 90 Width = 465 End Begin Label Cor_Label BackStyle = 0 'Transparent Height = 555 Index = 9 Left = 5100 TabIndex = 37 Top = 90 Width = 465 End Begin Label Cor_Label BackStyle = 0 'Transparent Height = 555 Index = 10 Left = 5550 TabIndex = 38 Top = 90 Width = 465 End Begin Label Cor_Label BackStyle = 0 'Transparent Height = 555 Index = 11 Left = 6000 TabIndex = 39 Top = 60 Width = 465 End Begin Label Cor_Label BackStyle = 0 'Transparent Height = 555 Index = 12 Left = 6450 TabIndex = 40 Top = 60 Width = 465 End End Begin FXLabel Menu Prop46 = 0 'Click on "..." for About Box Alignment = 6 'Center - TOP AutoSize = 0 'False BackColor = &H0000FFFF& BackFill = 0 'Screen BackStyle = 1 'Opaque BInnerColor1 = &H00808080& BInnerColor2 = &H00FFFFFF& BInnerStyle = 0 'None BInnerWidth = 1 BorderColor = &H00C0C0C0& BorderWidth = 0 BOuterColor1 = &H00808080& BOuterColor2 = &H00FFFFFF& BOuterStyle = 2 'Raised BOuterWidth = 2 CancelMode = 0 'None Caption = "MENU" Capture = 0 'None DEffect1 = 0 'No Effect DEffect2 = 0 'No Effect DEffect3 = 0 'No Effect DMode = 0 'None Font3D = 0 'None FontBlockSize = 1 FontDropX = 1 FontDropY = 1 FontOutlineColor= &H00000000& FontShadowColor = &H00FFFFFF& ForeColor = &H000000FF& ForeStyle = 0 'Solid FXEnabled = -1 'True GColor1 = &H00000000& GColor2 = &H00FF0000& GSteps = 16 GStyle = 0 'Left to Right Height = 255 HFileName = "" Left = 0 MDelay = 0 MEffect = 0 'No Effect MGrain = 5 Multitask = 0 'False Notify = 0 'False NotifyDelay = 0 Overlay = 0 'False PictureAlign = 0 'Left - TOP PictureVisible = -1 'True PictureX = 0 PictureY = 0 Pointer = 0 'Default PointerMode = 0 'Inside a Hotspot TabIndex = 42 TBackColor = &H00000000& TDEffect1 = 0 'No Effect TDEffect2 = 0 'No Effect TDEffect3 = 0 'No Effect TDelay = 0 TDMode = 0 'None TEffect = 0 'No Effect TEnabled = 0 'False TextX = 0 TextY = 0 TForeColor = &H00000000& TGColor1 = &H00000000& TGColor2 = &H00FF0000& TGrain = 5 TGSteps = 16 TGStyle = 0 'Left to Right TOnly = 0 'False Top = 0 Transparent = 0 'False TransparentColor= &H00000000& TStyle = 0 'Solid UpdateArea = 0 'Entire Control UpdateH = 10 UpdateLabel = -1 'True UpdateW = 10 UpdateX = 0 UpdateY = 0 Wand = 0 'False WandColor = &H00FFFFFF& WandWidth = 1 Width = 2025 WordWrap = -1 'True End Begin FXLabel T tulo Prop46 = 0 'Click on "..." for About Box Alignment = 6 'Center - TOP AutoSize = 0 'False BackColor = &H0000FFFF& BackFill = 0 'Screen BackStyle = 1 'Opaque BInnerColor1 = &H00808080& BInnerColor2 = &H00FFFFFF& BInnerStyle = 0 'None BInnerWidth = 1 BorderColor = &H00C0C0C0& BorderWidth = 0 BOuterColor1 = &H00808080& BOuterColor2 = &H00FFFFFF& BOuterStyle = 2 'Raised BOuterWidth = 2 CancelMode = 0 'None Caption = "COZINHA" Capture = 0 'None DEffect1 = 0 'No Effect DEffect2 = 0 'No Effect DEffect3 = 0 'No Effect DMode = 0 'None Font3D = 0 'None FontBlockSize = 1 FontDropX = 1 FontDropY = 1 FontOutlineColor= &H00000000& FontShadowColor = &H00FFFFFF& ForeColor = &H000000FF& ForeStyle = 0 'Solid FXEnabled = -1 'True GColor1 = &H00000000& GColor2 = &H00FF0000& GSteps = 16 GStyle = 0 'Left to Right Height = 255 HFileName = "" Left = 2010 MDelay = 0 MEffect = 0 'No Effect MGrain = 5 Multitask = 0 'False Notify = 0 'False NotifyDelay = 0 Overlay = 0 'False PictureAlign = 0 'Left - TOP PictureVisible = -1 'True PictureX = 0 PictureY = 0 Pointer = 0 'Default PointerMode = 0 'Inside a Hotspot TabIndex = 43 TBackColor = &H00000000& TDEffect1 = 0 'No Effect TDEffect2 = 0 'No Effect TDEffect3 = 0 'No Effect TDelay = 0 TDMode = 0 'None TEffect = 0 'No Effect TEnabled = 0 'False TextX = 0 TextY = 0 TForeColor = &H00000000& TGColor1 = &H00000000& TGColor2 = &H00FF0000& TGrain = 5 TGSteps = 16 TGStyle = 0 'Left to Right TOnly = 0 'False Top = 0 Transparent = 0 'False TransparentColor= &H00000000& TStyle = 0 'Solid UpdateArea = 0 'Entire Control UpdateH = 10 UpdateLabel = -1 'True UpdateW = 10 UpdateX = 0 UpdateY = 0 Wand = 0 'False WandColor = &H00FFFFFF& WandWidth = 1 Width = 5565 WordWrap = -1 'True End Begin FXLabel Bot o_Usuario Prop46 = 0 'Click on "..." for About Box Alignment = 6 'Center - TOP AutoSize = 0 'False BackColor = &H0000FFFF& BackFill = 0 'Screen BackStyle = 1 'Opaque BInnerColor1 = &H00808080& BInnerColor2 = &H00FFFFFF& BInnerStyle = 0 'None BInnerWidth = 1 BorderColor = &H00C0C0C0& BorderWidth = 0 BOuterColor1 = &H00808080& BOuterColor2 = &H00FFFFFF& BOuterStyle = 2 'Raised BOuterWidth = 2 CancelMode = 0 'None Caption = "" Capture = 0 'None DEffect1 = 0 'No Effect DEffect2 = 0 'No Effect DEffect3 = 0 'No Effect DMode = 0 'None Font3D = 0 'None FontBlockSize = 1 FontDropX = 1 FontDropY = 1 FontOutlineColor= &H00000000& FontShadowColor = &H00FFFFFF& ForeColor = &H000000FF& ForeStyle = 0 'Solid FXEnabled = -1 'True GColor1 = &H00000000& GColor2 = &H00FF0000& GSteps = 16 GStyle = 0 'Left to Right Height = 255 HFileName = "" Left = 7590 MDelay = 0 MEffect = 0 'No Effect MGrain = 5 Multitask = 0 'False Notify = 0 'False NotifyDelay = 0 Overlay = 0 'False PictureAlign = 0 'Left - TOP PictureVisible = -1 'True PictureX = 0 PictureY = 0 Pointer = 0 'Default PointerMode = 0 'Inside a Hotspot TabIndex = 44 TBackColor = &H00000000& TDEffect1 = 0 'No Effect TDEffect2 = 0 'No Effect TDEffect3 = 0 'No Effect TDelay = 0 TDMode = 0 'None TEffect = 0 'No Effect TEnabled = 0 'False TextX = 0 TextY = 0 TForeColor = &H00000000& TGColor1 = &H00000000& TGColor2 = &H00FF0000& TGrain = 5 TGSteps = 16 TGStyle = 0 'Left to Right TOnly = 0 'False Top = 0 Transparent = 0 'False TransparentColor= &H00000000& TStyle = 0 'Solid UpdateArea = 0 'Entire Control UpdateH = 10 UpdateLabel = -1 'True UpdateW = 10 UpdateX = 0 UpdateY = 0 Wand = 0 'False WandColor = &H00FFFFFF& WandWidth = 1 Width = 1905 WordWrap = -1 'True End End Begin PictureBox Rodape AutoSize = -1 'True Height = 465 Left = 3330 ScaleHeight = 29 ScaleMode = 3 'Pixel ScaleWidth = 89 TabIndex = 27 Top = 3120 Visible = 0 'False Width = 1365 End Begin Timer Timer1 Enabled = 0 'False Interval = 100 Left = 3090 Top = 5400 End Begin PictureBox Rascunho AutoRedraw = -1 'True AutoSize = -1 'True Height = 1035 Left = 6000 ScaleHeight = 67 ScaleMode = 3 'Pixel ScaleWidth = 35 TabIndex = 26 Top = 3780 Visible = 0 'False Width = 555 End Begin PictureBox Guarda_Fundo AutoRedraw = -1 'True AutoSize = -1 'True Height = 1035 Left = 6510 ScaleHeight = 67 ScaleMode = 3 'Pixel ScaleWidth = 35 TabIndex = 25 Top = 3780 Visible = 0 'False Width = 555 End Begin PictureBox Branco AutoRedraw = -1 'True AutoSize = -1 'True Height = 1035 Index = 0 Left = 7590 Picture = PINTURA.FRX:18D3E ScaleHeight = 67 ScaleMode = 3 'Pixel ScaleWidth = 35 TabIndex = 24 Top = 2670 Visible = 0 'False Width = 555 End Begin PictureBox Preto AutoRedraw = -1 'True AutoSize = -1 'True FillStyle = 0 'Solid Height = 1035 Index = 0 Left = 8160 Picture = PINTURA.FRX:19AE6 ScaleHeight = 67 ScaleMode = 3 'Pixel ScaleWidth = 35 TabIndex = 23 Top = 2670 Visible = 0 'False Width = 555 End Begin PictureBox Preto AutoRedraw = -1 'True AutoSize = -1 'True FillStyle = 0 'Solid Height = 1035 Index = 1 Left = 8160 Picture = PINTURA.FRX:1A88C ScaleHeight = 67 ScaleMode = 3 'Pixel ScaleWidth = 35 TabIndex = 22 Top = 3780 Visible = 0 'False Width = 555 End Begin PictureBox Branco AutoRedraw = -1 'True AutoSize = -1 'True Height = 1035 Index = 1 Left = 7560 Picture = PINTURA.FRX:1B632 ScaleHeight = 67 ScaleMode = 3 'Pixel ScaleWidth = 35 TabIndex = 21 Top = 3780 Visible = 0 'False Width = 555 End Begin PictureBox Carrega AutoRedraw = -1 'True AutoSize = -1 'True Height = 1035 Left = 6960 ScaleHeight = 67 ScaleMode = 3 'Pixel ScaleWidth = 35 TabIndex = 19 Top = 3780 Visible = 0 'False Width = 555 End Begin PictureBox Picture1 AutoRedraw = -1 'True AutoSize = -1 'True Height = 645 Left = 5010 ScaleHeight = 615 ScaleWidth = 795 TabIndex = 18 Top = 270 Visible = 0 'False Width = 825 End Begin PictureBox Menu_Picture AutoRedraw = -1 'True BackColor = &H00FFFFFF& Height = 5865 Left = 60 Picture = PINTURA.FRX:1C3D8 ScaleHeight = 389 ScaleMode = 3 'Pixel ScaleWidth = 131 TabIndex = 11 Top = 180 Visible = 0 'False Width = 1995 Begin FXImage FXImage2 Prop25 = 0 'Click on "..." for About Box AutoSize = 2 'Resize Image To Control BInnerColor1 = &H00808080& BInnerColor2 = &H00FFFFFF& BInnerStyle = 0 'None BInnerWidth = 1 BorderColor = &H00C0C0C0& BorderWidth = 0 BOuterColor1 = &H00808080& BOuterColor2 = &H00FFFFFF& BOuterStyle = 0 'None BOuterWidth = 1 CancelLoad = 0 'False CancelMode = 0 'None CancelRemove = 0 'False Capture = 0 'None CropX = 0 CropY = 0 DecompressMode = 1 'Speed more important DEffect1 = 0 'No Effect DEffect2 = 0 'No Effect DEffect3 = 0 'No Effect DMode = 0 'None FileName = "" FXEnabled = -1 'True GIFPassword = "" Height = 1410 HFileName = "" Index = 0 Left = 0 MDelay = 0 MEffect = 0 'No Effect MGrain = 5 Multitask = 0 'False Notify = 0 'False NotifyDelay = 0 Palette = 0 'Optimized Picture = PINTURA.FRX:2975C Pointer = 0 'Default PointerMode = 0 'Inside a Hotspot ShowDithered = 1 'Floyd-Steinberg ShowFlipped = 0 'False ShowHourglass = 0 'False ShowReverse = 0 'False ShowRotated = 0 'None TBackColor = &H00000000& TDelay = 0 TEffect = 0 'No Effect TEnabled = 0 'False TForeColor = &H00000000& TGColor1 = &H00FF0000& TGColor2 = &H00000000& TGrain = 5 TGSteps = 16 TGStyle = 0 'Left To Right TOnly = 0 'False Top = 90 Transparent = -1 'True TransparentColor= &H00FFFFFF& TransparentMode = 0 'Update TStyle = 0 'Solid UpdateImage = -1 'True Visible = 0 'False Wand = 0 'False WandColor = &H00FFFFFF& WandWidth = 1 Width = 705 End Begin FXImage FXImage2 Prop25 = 0 'Click on "..." for About Box AutoSize = 2 'Resize Image To Control BInnerColor1 = &H00808080& BInnerColor2 = &H00FFFFFF& BInnerStyle = 0 'None BInnerWidth = 1 BorderColor = &H00C0C0C0& BorderWidth = 0 BOuterColor1 = &H00808080& BOuterColor2 = &H00FFFFFF& BOuterStyle = 0 'None BOuterWidth = 1 CancelLoad = 0 'False CancelMode = 0 'None CancelRemove = 0 'False Capture = 0 'None CropX = 0 CropY = 0 DecompressMode = 1 'Speed more important DEffect1 = 0 'No Effect DEffect2 = 0 'No Effect DEffect3 = 0 'No Effect DMode = 0 'None FileName = "" FXEnabled = -1 'True GIFPassword = "" Height = 1410 HFileName = "" Index = 2 Left = 0 MDelay = 0 MEffect = 0 'No Effect MGrain = 5 Multitask = 0 'False Notify = 0 'False NotifyDelay = 0 Palette = 0 'Optimized Picture = PINTURA.FRX:2AD38 Pointer = 0 'Default PointerMode = 0 'Inside a Hotspot ShowDithered = 1 'Floyd-Steinberg ShowFlipped = 0 'False ShowHourglass = 0 'False ShowReverse = 0 'False ShowRotated = 0 'None TBackColor = &H00000000& TDelay = 0 TEffect = 0 'No Effect TEnabled = 0 'False TForeColor = &H00000000& TGColor1 = &H00FF0000& TGColor2 = &H00000000& TGrain = 5 TGSteps = 16 TGStyle = 0 'Left To Right TOnly = 0 'False Top = 2580 Transparent = -1 'True TransparentColor= &H00FFFFFF& TransparentMode = 0 'Update TStyle = 0 'Solid UpdateImage = -1 'True Visible = 0 'False Wand = 0 'False WandColor = &H00FFFFFF& WandWidth = 1 Width = 705 End Begin FXImage FXImage2 Prop25 = 0 'Click on "..." for About Box AutoSize = 2 'Resize Image To Control BInnerColor1 = &H00808080& BInnerColor2 = &H00FFFFFF& BInnerStyle = 0 'None BInnerWidth = 1 BorderColor = &H00C0C0C0& BorderWidth = 0 BOuterColor1 = &H00808080& BOuterColor2 = &H00FFFFFF& BOuterStyle = 0 'None BOuterWidth = 1 CancelLoad = 0 'False CancelMode = 0 'None CancelRemove = 0 'False Capture = 0 'None CropX = 0 CropY = 0 DecompressMode = 1 'Speed more important DEffect1 = 0 'No Effect DEffect2 = 0 'No Effect DEffect3 = 0 'No Effect DMode = 0 'None FileName = "" FXEnabled = -1 'True GIFPassword = "" Height = 1410 HFileName = "" Index = 1 Left = 1290 MDelay = 0 MEffect = 0 'No Effect MGrain = 5 Multitask = 0 'False Notify = 0 'False NotifyDelay = 0 Palette = 0 'Optimized Picture = PINTURA.FRX:2C314 Pointer = 0 'Default PointerMode = 0 'Inside a Hotspot ShowDithered = 1 'Floyd-Steinberg ShowFlipped = 0 'False ShowHourglass = 0 'False ShowReverse = 0 'False ShowRotated = 0 'None TBackColor = &H00000000& TDelay = 0 TEffect = 0 'No Effect TEnabled = 0 'False TForeColor = &H00000000& TGColor1 = &H00FF0000& TGColor2 = &H00000000& TGrain = 5 TGSteps = 16 TGStyle = 0 'Left To Right TOnly = 0 'False Top = 1350 Transparent = -1 'True TransparentColor= &H00FF0000& TransparentMode = 2 'Update + Capture TStyle = 0 'Solid UpdateImage = -1 'True Visible = 0 'False Wand = 0 'False WandColor = &H00FFFFFF& WandWidth = 1 Width = 705 End Begin FXLabel Menu_Item Prop46 = 0 'Click on "..." for About Box Alignment = 4 'Right Justify - MIDDLE AutoSize = 0 'False BackColor = &H00FFFFFF& BackFill = 0 'Screen BackStyle = 5 'Tile Image BInnerColor1 = &H00808080& BInnerColor2 = &H00FFFFFF& BInnerStyle = 0 'None BInnerWidth = 1 BorderColor = &H00C0C0C0& BorderWidth = 0 BOuterColor1 = &H00808080& BOuterColor2 = &H00FFFFFF& BOuterStyle = 2 'Raised BOuterWidth = 1 CancelMode = 0 'None Caption = "" Capture = 0 'None DEffect1 = 0 'No Effect DEffect2 = 0 'No Effect DEffect3 = 0 'No Effect DMode = 0 'None Font3D = 5 'Drop Shadow FontBlockSize = 3 FontBold = -1 'True FontDropX = 1 FontDropY = 1 FontItalic = 0 'False FontName = "Arial" FontOutlineColor= &H0000FFFF& FontShadowColor = &H0000FFFF& FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00FF0000& ForeStyle = 0 'Solid FXEnabled = -1 'True GColor1 = &H00000000& GColor2 = &H00FF0000& GSteps = 16 GStyle = 0 'Left to Right Height = 405 HFileName = "" Index = 0 Left = 90 MDelay = 0 MEffect = 0 'No Effect MGrain = 5 Multitask = 0 'False Notify = -1 'True NotifyDelay = 100 Overlay = 0 'False PictureAlign = 0 'Left - TOP PictureVisible = -1 'True PictureX = 0 PictureY = 0 Pointer = 0 'Default PointerMode = 0 'Inside a Hotspot TabIndex = 10 TBackColor = &H00000000& TDEffect1 = 0 'No Effect TDEffect2 = 0 'No Effect TDEffect3 = 0 'No Effect TDelay = 0 TDMode = 0 'None TEffect = 0 'No Effect TEnabled = 0 'False TextX = 0 TextY = 0 TForeColor = &H00000000& TGColor1 = &H00000000& TGColor2 = &H00FF0000& TGrain = 5 TGSteps = 16 TGStyle = 0 'Left to Right TOnly = 0 'False Top = 900 Transparent = 0 'False TransparentColor= &H00000000& TStyle = 0 'Solid UpdateArea = 0 'Entire Control UpdateH = 10 UpdateLabel = -1 'True UpdateW = 10 UpdateX = 0 UpdateY = 0 Visible = 0 'False Wand = 0 'False WandColor = &H00FFFFFF& WandWidth = 1 Width = 1905 WordWrap = -1 'True End Begin FXLabel Menu_Item Prop46 = 0 'Click on "..." for About Box Alignment = 4 'Right Justify - MIDDLE AutoSize = 0 'False BackColor = &H00FFFFFF& BackFill = 0 'Screen BackStyle = 5 'Tile Image BInnerColor1 = &H00808080& BInnerColor2 = &H00FFFFFF& BInnerStyle = 0 'None BInnerWidth = 1 BorderColor = &H00C0C0C0& BorderWidth = 0 BOuterColor1 = &H00808080& BOuterColor2 = &H00FFFFFF& BOuterStyle = 2 'Raised BOuterWidth = 1 CancelMode = 0 'None Caption = "Sug&est Capture = 0 'None DEffect1 = 0 'No Effect DEffect2 = 0 'No Effect DEffect3 = 0 'No Effect DMode = 0 'None Font3D = 5 'Drop Shadow FontBlockSize = 2 FontBold = -1 'True FontDropX = 1 FontDropY = 1 FontItalic = 0 'False FontName = "MS Sans Serif" FontOutlineColor= &H00000000& FontShadowColor = &H0000FFFF& FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00FF0000& ForeStyle = 0 'Solid FXEnabled = -1 'True GColor1 = &H00000000& GColor2 = &H00FF0000& GSteps = 16 GStyle = 0 'Left to Right Height = 405 HFileName = "" Index = 2 Left = 0 MDelay = 0 MEffect = 0 'No Effect MGrain = 5 Multitask = 0 'False Notify = -1 'True NotifyDelay = 100 Overlay = 0 'False PictureAlign = 0 'Left - TOP PictureVisible = -1 'True PictureX = 0 PictureY = 0 Pointer = 0 'Default PointerMode = 0 'Inside a Hotspot TabIndex = 17 TBackColor = &H00000000& TDEffect1 = 0 'No Effect TDEffect2 = 0 'No Effect TDEffect3 = 0 'No Effect TDelay = 0 TDMode = 0 'None TEffect = 0 'No Effect TEnabled = 0 'False TextX = 0 TextY = 0 TForeColor = &H00000000& TGColor1 = &H00000000& TGColor2 = &H00FF0000& TGrain = 5 TGSteps = 16 TGStyle = 0 'Left to Right TOnly = 0 'False Top = 3420 Transparent = 0 'False TransparentColor= &H00000000& TStyle = 0 'Solid UpdateArea = 0 'Entire Control UpdateH = 10 UpdateLabel = -1 'True UpdateW = 10 UpdateX = 0 UpdateY = 0 Visible = 0 'False Wand = 0 'False WandColor = &H00FFFFFF& WandWidth = 1 Width = 1935 WordWrap = -1 'True End Begin FXLabel Menu_Item Prop46 = 0 'Click on "..." for About Box Alignment = 7 'Center - MIDDLE AutoSize = 0 'False BackColor = &H00FFFFFF& BackFill = 0 'Screen BackStyle = 5 'Tile Image BInnerColor1 = &H00808080& BInnerColor2 = &H00FFFFFF& BInnerStyle = 0 'None BInnerWidth = 1 BorderColor = &H00C0C0C0& BorderWidth = 0 BOuterColor1 = &H00808080& BOuterColor2 = &H00FFFFFF& BOuterStyle = 2 'Raised BOuterWidth = 1 CancelMode = 0 'None Caption = "&Galeria" Capture = 0 'None DEffect1 = 0 'No Effect DEffect2 = 0 'No Effect DEffect3 = 0 'No Effect DMode = 0 'None Font3D = 5 'Drop Shadow FontBlockSize = 2 FontBold = -1 'True FontDropX = 1 FontDropY = 1 FontItalic = 0 'False FontName = "MS Sans Serif" FontOutlineColor= &H00000000& FontShadowColor = &H0000FFFF& FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00FF0000& ForeStyle = 0 'Solid FXEnabled = -1 'True GColor1 = &H00000000& GColor2 = &H00FF0000& GSteps = 16 GStyle = 0 'Left to Right Height = 405 HFileName = "" Index = 3 Left = 30 MDelay = 0 MEffect = 0 'No Effect MGrain = 5 Multitask = 0 'False Notify = -1 'True NotifyDelay = 100 Overlay = 0 'False PictureAlign = 0 'Left - TOP PictureVisible = -1 'True PictureX = 0 PictureY = 0 Pointer = 0 'Default PointerMode = 0 'Inside a Hotspot TabIndex = 16 TBackColor = &H00000000& TDEffect1 = 0 'No Effect TDEffect2 = 0 'No Effect TDEffect3 = 0 'No Effect TDelay = 0 TDMode = 0 'None TEffect = 0 'No Effect TEnabled = 0 'False TextX = 0 TextY = 0 TForeColor = &H00000000& TGColor1 = &H00000000& TGColor2 = &H00FF0000& TGrain = 5 TGSteps = 16 TGStyle = 0 'Left to Right TOnly = 0 'False Top = 4110 Transparent = 0 'False TransparentColor= &H00000000& TStyle = 0 'Solid UpdateArea = 0 'Entire Control UpdateH = 10 UpdateLabel = -1 'True UpdateW = 10 UpdateX = 0 UpdateY = 0 Visible = 0 'False Wand = 0 'False WandColor = &H00FFFFFF& WandWidth = 1 Width = 1905 WordWrap = -1 'True End Begin FXLabel Menu_Item Prop46 = 0 'Click on "..." for About Box Alignment = 7 'Center - MIDDLE AutoSize = 0 'False BackColor = &H00FFFFFF& BackFill = 0 'Screen BackStyle = 5 'Tile Image BInnerColor1 = &H00808080& BInnerColor2 = &H00FFFFFF& BInnerStyle = 0 'None BInnerWidth = 1 BorderColor = &H00C0C0C0& BorderWidth = 0 BOuterColor1 = &H00808080& BOuterColor2 = &H00FFFFFF& BOuterStyle = 2 'Raised BOuterWidth = 1 CancelMode = 0 'None Caption = "&Imprime" Capture = 0 'None DEffect1 = 0 'No Effect DEffect2 = 0 'No Effect DEffect3 = 0 'No Effect DMode = 0 'None Font3D = 5 'Drop Shadow FontBlockSize = 2 FontBold = -1 'True FontDropX = 1 FontDropY = 1 FontItalic = 0 'False FontName = "MS Sans Serif" FontOutlineColor= &H00000000& FontShadowColor = &H0000FFFF& FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00FF0000& ForeStyle = 0 'Solid FXEnabled = -1 'True GColor1 = &H00000000& GColor2 = &H00FF0000& GSteps = 16 GStyle = 0 'Left to Right Height = 405 HFileName = "" Index = 4 Left = 30 MDelay = 0 MEffect = 0 'No Effect MGrain = 5 Multitask = 0 'False Notify = -1 'True NotifyDelay = 100 Overlay = 0 'False PictureAlign = 0 'Left - TOP PictureVisible = -1 'True PictureX = 0 PictureY = 0 Pointer = 0 'Default PointerMode = 0 'Inside a Hotspot TabIndex = 15 TBackColor = &H00000000& TDEffect1 = 0 'No Effect TDEffect2 = 0 'No Effect TDEffect3 = 0 'No Effect TDelay = 0 TDMode = 0 'None TEffect = 0 'No Effect TEnabled = 0 'False TextX = 0 TextY = 0 TForeColor = &H00000000& TGColor1 = &H00000000& TGColor2 = &H00FF0000& TGrain = 5 TGSteps = 16 TGStyle = 0 'Left to Right TOnly = 0 'False Top = 4530 Transparent = 0 'False TransparentColor= &H00000000& TStyle = 0 'Solid UpdateArea = 0 'Entire Control UpdateH = 10 UpdateLabel = -1 'True UpdateW = 10 UpdateX = 0 UpdateY = 0 Visible = 0 'False Wand = 0 'False WandColor = &H00FFFFFF& WandWidth = 1 Width = 1905 WordWrap = -1 'True End Begin FXLabel Menu_Item Prop46 = 0 'Click on "..." for About Box Alignment = 7 'Center - MIDDLE AutoSize = 0 'False BackColor = &H00FFFFFF& BackFill = 0 'Screen BackStyle = 5 'Tile Image BInnerColor1 = &H00808080& BInnerColor2 = &H00FFFFFF& BInnerStyle = 0 'None BInnerWidth = 1 BorderColor = &H00C0C0C0& BorderWidth = 0 BOuterColor1 = &H00808080& BOuterColor2 = &H00FFFFFF& BOuterStyle = 2 'Raised BOuterWidth = 1 CancelMode = 0 'None Caption = "&Ajuda" Capture = 0 'None DEffect1 = 0 'No Effect DEffect2 = 0 'No Effect DEffect3 = 0 'No Effect DMode = 0 'None Font3D = 5 'Drop Shadow FontBlockSize = 2 FontBold = -1 'True FontDropX = 1 FontDropY = 1 FontItalic = 0 'False FontName = "MS Sans Serif" FontOutlineColor= &H00000000& FontShadowColor = &H0000FFFF& FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00FF0000& ForeStyle = 0 'Solid FXEnabled = -1 'True GColor1 = &H00000000& GColor2 = &H00FF0000& GSteps = 16 GStyle = 0 'Left to Right Height = 405 HFileName = "" Index = 5 Left = 30 MDelay = 0 MEffect = 0 'No Effect MGrain = 5 Multitask = 0 'False Notify = -1 'True NotifyDelay = 100 Overlay = 0 'False PictureAlign = 0 'Left - TOP PictureVisible = -1 'True PictureX = 0 PictureY = 0 Pointer = 0 'Default PointerMode = 0 'Inside a Hotspot TabIndex = 14 TBackColor = &H00000000& TDEffect1 = 0 'No Effect TDEffect2 = 0 'No Effect TDEffect3 = 0 'No Effect TDelay = 0 TDMode = 0 'None TEffect = 0 'No Effect TEnabled = 0 'False TextX = 0 TextY = 0 TForeColor = &H00000000& TGColor1 = &H00000000& TGColor2 = &H00FF0000& TGrain = 5 TGSteps = 16 TGStyle = 0 'Left to Right TOnly = 0 'False Top = 4950 Transparent = 0 'False TransparentColor= &H00000000& TStyle = 0 'Solid UpdateArea = 0 'Entire Control UpdateH = 10 UpdateLabel = -1 'True UpdateW = 10 UpdateX = 0 UpdateY = 0 Visible = 0 'False Wand = 0 'False WandColor = &H00FFFFFF& WandWidth = 1 Width = 1905 WordWrap = -1 'True End Begin FXLabel Menu_Item Prop46 = 0 'Click on "..." for About Box Alignment = 7 'Center - MIDDLE AutoSize = 0 'False BackColor = &H00FFFFFF& BackFill = 0 'Screen BackStyle = 5 'Tile Image BInnerColor1 = &H00808080& BInnerColor2 = &H00FFFFFF& BInnerStyle = 0 'None BInnerWidth = 1 BorderColor = &H00C0C0C0& BorderWidth = 0 BOuterColor1 = &H00808080& BOuterColor2 = &H00FFFFFF& BOuterStyle = 2 'Raised BOuterWidth = 1 CancelMode = 0 'None Caption = "&Sair" Capture = 0 'None DEffect1 = 0 'No Effect DEffect2 = 0 'No Effect DEffect3 = 0 'No Effect DMode = 0 'None Font3D = 5 'Drop Shadow FontBlockSize = 2 FontBold = -1 'True FontDropX = 1 FontDropY = 1 FontItalic = 0 'False FontName = "MS Sans Serif" FontOutlineColor= &H00000000& FontShadowColor = &H0000FFFF& FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00FF0000& ForeStyle = 0 'Solid FXEnabled = -1 'True GColor1 = &H00000000& GColor2 = &H00FF0000& GSteps = 16 GStyle = 0 'Left to Right Height = 405 HFileName = "" Index = 6 Left = 30 MDelay = 0 MEffect = 0 'No Effect MGrain = 5 Multitask = 0 'False Notify = -1 'True NotifyDelay = 100 Overlay = 0 'False PictureAlign = 0 'Left - TOP PictureVisible = -1 'True PictureX = 0 PictureY = 0 Pointer = 0 'Default PointerMode = 0 'Inside a Hotspot TabIndex = 13 TBackColor = &H00000000& TDEffect1 = 0 'No Effect TDEffect2 = 0 'No Effect TDEffect3 = 0 'No Effect TDelay = 0 TDMode = 0 'None TEffect = 0 'No Effect TEnabled = 0 'False TextX = 0 TextY = 0 TForeColor = &H00000000& TGColor1 = &H00000000& TGColor2 = &H00FF0000& TGrain = 5 TGSteps = 16 TGStyle = 0 'Left to Right TOnly = 0 'False Top = 5370 Transparent = 0 'False TransparentColor= &H00000000& TStyle = 0 'Solid UpdateArea = 0 'Entire Control UpdateH = 10 UpdateLabel = -1 'True UpdateW = 10 UpdateX = 0 UpdateY = 0 Visible = 0 'False Wand = 0 'False WandColor = &H00FFFFFF& WandWidth = 1 Width = 1905 WordWrap = -1 'True End Begin FXLabel Menu_Item Prop46 = 0 'Click on "..." for About Box Alignment = 1 'Left Justify - MIDDLE AutoSize = 0 'False BackColor = &H00FFFFFF& BackFill = 0 'Screen BackStyle = 5 'Tile Image BInnerColor1 = &H00808080& BInnerColor2 = &H00FFFFFF& BInnerStyle = 0 'None BInnerWidth = 1 BorderColor = &H00C0C0C0& BorderWidth = 0 BOuterColor1 = &H00808080& BOuterColor2 = &H00FFFFFF& BOuterStyle = 2 'Raised BOuterWidth = 1 CancelMode = 0 'None Caption = " &Recome Capture = 0 'None DEffect1 = 0 'No Effect DEffect2 = 0 'No Effect DEffect3 = 0 'No Effect DMode = 0 'None Font3D = 5 'Drop Shadow FontBlockSize = 2 FontBold = -1 'True FontDropX = 1 FontDropY = 1 FontItalic = 0 'False FontName = "MS Sans Serif" FontOutlineColor= &H00000000& FontShadowColor = &H0000FFFF& FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00FF0000& ForeStyle = 0 'Solid FXEnabled = -1 'True GColor1 = &H00000000& GColor2 = &H00FF0000& GSteps = 16 GStyle = 0 'Left to Right Height = 405 HFileName = "" Index = 1 Left = 30 MDelay = 0 MEffect = 0 'No Effect MGrain = 5 Multitask = 0 'False Notify = -1 'True NotifyDelay = 100 Overlay = 0 'False PictureAlign = 0 'Left - TOP PictureVisible = -1 'True PictureX = 0 PictureY = 0 Pointer = 0 'Default PointerMode = 0 'Inside a Hotspot TabIndex = 12 TBackColor = &H00000000& TDEffect1 = 0 'No Effect TDEffect2 = 0 'No Effect TDEffect3 = 0 'No Effect TDelay = 0 TDMode = 0 'None TEffect = 0 'No Effect TEnabled = 0 'False TextX = 0 TextY = 0 TForeColor = &H00000000& TGColor1 = &H00000000& TGColor2 = &H00FF0000& TGrain = 5 TGSteps = 16 TGStyle = 0 'Left to Right TOnly = 0 'False Top = 2160 Transparent = 0 'False TransparentColor= &H00000000& TStyle = 0 'Solid UpdateArea = 0 'Entire Control UpdateH = 10 UpdateLabel = -1 'True UpdateW = 10 UpdateX = 0 UpdateY = 0 Visible = 0 'False Wand = 0 'False WandColor = &H00FFFFFF& WandWidth = 1 Width = 1905 WordWrap = -1 'True End End Dim var As Integer Dim x_antigo As Integer Dim y_antigo As Integer Dim Menu_Ativo As Integer Dim Menu_Picture_Ativo As Integer Sub A o_Click (index As Integer) Mousepointer = 11 If index = 0 Then 'pintura Else 'dicion If Lingua = 0 Then Dicion rio.T tulo.Caption = T tulo_Port(Array_Ativo) Else Dicion rio.T tulo.Caption = T tulo_Ingles(Array_Ativo) End If Grava_Cor 'deixa os baldes invis A o(0).Visible = True A o(0).Left = 50 A o(1).Visible = False A o(1).Left = 322 Tom.Visible = False 'chama o form do dicion Dicion rio.Show Pintura.Hide End If Mousepointer = 0 End Sub Sub Atualiza_T tulo () If Lingua = 0 Then 'T tulo em portugues T tulo.Caption = T tulo_Port(Array_Ativo) Else 'T tulo em ingles T tulo.Caption = T tulo_Ingles(Array_Ativo) End If tulo.Refresh End Sub Sub Balde_Click (index As Integer) 'picture1.FillColor = cores(index) 'Pintura.FillColor = Cores(index) 'MsgBox Str(cores(index)) End Sub Sub Bot o_Usuario_Click () If Bot o_Usuario.BOuterStyle = 1 Then Bot o_Usuario.BOuterStyle = 2 Bot o_Usuario.BOuterStyle = 1 End If End Sub Sub Carrega_Cor () Open DIR_BALDES For Input As #1 For i = 0 To 38 Line Input #1, Cor Cores(i) = Right(Cor, Len(Cor) - 3) Close #1 End Sub Sub Command1_Click () End Sub Sub Cor_Label_Click (index As Integer) Preto(0).FillColor = Cores(Tom_var * 13 + index) Preto(1).FillColor = Cores(Tom_var * 13 + index) 'Branco(0).FillColor = Cores(Tom_var * 13 + index) 'Branco(1).FillColor = Cores(Tom_var * 13 + index) Pintura.FillColor = Cores(Tom_var * 13 + index) 'a = floodfill(Preto(0).hDC, 17, 36, &H0) a = floodfill(Preto(0).hDC, 3, 60, &H0) 'a = floodfill(Preto(1).hDC, 17, 30, &H0) a = floodfill(Preto(1).hDC, 3, 6, &H0) 'a = floodfill(Branco(0).hDC, 17, 36, &H0) 'a = floodfill(Branco(1).hDC, 17, 30, &H0) End Sub Sub Dire o_Click (index As Integer) Mousepointer = 11 Array_Antigo = Array_Ativo 'desativa o bot o menu e troca o efeito If menu.BOuterStyle = 1 Then Menu_Click 'Grava a cor do desenho anterior Grava_Cor 'Muda o array ativo conforme dire o "Index" If index = 0 Then Array_Ativo = Array_Ativo - 1 Array_Ativo = Array_Ativo + 1 End If If Array_Ativo < 0 Then Array_Ativo = 19 ElseIf Array_Ativo = 20 Then Array_Ativo = 0 End If ''Deixa vis vel o rodap All_Balde.Visible = True Picture_T tulo.Visible = True 'Atualiza o t tulo conforma o desenho Atualiza_T a = bitblt(Guarda_Fundo.hDC, 0, 404, 643, 117, Picture_T tulo.hDC, 0, 0, SRCCOPY) 'Frame3d1.Visible = True 'Frame3d1.Refresh 'Painel.Visible = True 'All_Balde.Visible = True Pintura.AutoRedraw = True 'Carrego o novo desenho Pintura.Picture = LoadPicture(DIR_TELAS & Nome_Desenho_PB()) 'Pinta o desenho conforme TXT do Usuario Pinta_Desenho 'Pintura.Refresh Pintura.AutoRedraw = False ''Atualiza Guarda_Fundo com o novo desenho a = bitblt(Guarda_Fundo.hDC, 0, 0, 643, 404, Pintura.hDC, 0, 0, SRCCOPY) ''Captura o rodap para o clipboard 'scrncap 0, 402, 640, 519 ''Carrega o rodap do clipboard para Picture "Rodape" 'rodape.Picture = clipboard.GetData() 'Adiciona no desenho do Guarda_Fundo o rodap 'a = bitblt(Guarda_Fundo.hDC, 0, 402, 643, 97, rodape.hDC, 0, 0, SRCCOPY) ''Atualiza a tela com o Guarda_Fundo Pintura.AutoRedraw = True a = bitblt(Pintura.hDC, 0, 0, 643, 519, Guarda_Fundo.hDC, 0, 0, SRCCOPY) ''Deixa o rodap invis 'All_Balde.Visible = False 'Painel.Visible = False 'Frame3d1.Visible = False Pintura.AutoRedraw = False Picture_T tulo.Visible = False All_Balde.Visible = False 'Pintura.Refresh Mousepointer = 0 End Sub Sub Dire o_DblClick (index As Integer) End Sub Sub Form_Activate () 'pega o nome do Usuario Bot o_Usuario.Caption = Usuario.Nome Menu_Item(0).Caption = Usuario.Nome 'chama o painel sem tintas If Array_Ativo <> Array_Antigo Then Painel = LoadPicture(DIR_TELAS & "PAin_Cor.BMP") End If DoEvents Tom.Visible = True Pintura.AutoRedraw = True Pinta_Desenho Pintura.AutoRedraw = False 'posiciona o bot esquerda A o(0).Visible = False A o(1).Visible = True A o(1).Left = 510 All_Balde.Visible = True Timer1.Enabled = True End Sub Sub Form_Deactivate () All_Balde.Visible = False End Sub Sub Form_Load () Tom_var = 1 Carrega_Cor x_antigo = 0 y_antigo = 0 End Sub Sub Form_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single) Dim array As Integer On Error GoTo Erro_Flood If Menu_Ativo = 0 Then If Y < 401 Then Pintura.AutoRedraw = True a = floodfill(Pintura.hDC, X, Y, &H0) a = bitblt(Pintura.hDC, 0, 404, 643, 519, Guarda_Fundo.hDC, 0, 404, SRCCOPY) Pintura.Refresh Pintura.AutoRedraw = False 'DoEvents a = bitblt(Guarda_Fundo.hDC, 0, 0, 640, 402, Pintura.hDC, 0, 0, SRCCOPY) Form_MouseMove Button, Shift, X, Y End If 'Tom If X >= 464 And X <= 476 And Y >= 428 And Y <= 447 Then 'tom 0 Tom_Bot o_Click 0 ElseIf X >= 464 And X <= 476 And Y >= 448 And Y <= 467 Then 'tom 1 Tom_Bot o_Click 1 ElseIf X >= 464 And X <= 476 And Y >= 468 And Y <= 487 Then 'tom 2 Tom_Bot o_Click 2 End If 'Cor If Y >= 428 And Y <= 463 Then If X >= 70 And X <= 460 Then 'Array 0 array = Int((X - 70) / 30) Cor_Label_Click array Form_MouseMove Button, Shift, X, Y End If End If 'Troca Desenho If X > 596 And Y > 428 Then Dire o_Click (1) End If If X > 0 And X < 53 And Y > 428 Then Dire o_Click (0) End If End If 'Menu If X >= 0 And X <= 135 And Y >= 402 And Y <= 421 Then wRtn = SetCapture(Pintura.hWnd) hCursorPrev = GetCursor() wRtn = SetCursor(hCursorPrev) Menu_Click End If Exit Sub Erro_Flood: MsgBox Error(Err) MsgBox Str(Err) Resume Next Exit Sub End Sub Sub Form_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single) If Menu_Ativo = 0 Then wRtn = SetCapture(Pintura.hWnd) hCursorPrev = GetCursor() wRtn = SetCursor(hCursor) If desativado = 0 Then Exit Sub If Y < 330 Then '401 If Qual_Hdc = 1 Then r = bitblt(Pintura.hDC, x_antigo, y_antigo, 40, 67, Guarda_Fundo.hDC, x_antigo, y_antigo, SRCCOPY) Else a = bitblt(Pintura.hDC, x_antigo, y_antigo - 67, 40, 67, Guarda_Fundo.hDC, x_antigo, y_antigo - 67, SRCCOPY) Qual_Hdc = 1 End If 'copia o fundo para o rascunho r = bitblt(Rascunho.hDC, 0, 0, 40, 67, Guarda_Fundo.hDC, X, Y, SRCCOPY) 'joga o cursor r = bitblt(Rascunho.hDC, 0, 0, 40, 67, Branco(1).hDC, 0, 0, SRCand) r = bitblt(Rascunho.hDC, 0, 0, 40, 67, Preto(1).hDC, 0, 0, SRCPaint) r = bitblt(Pintura.hDC, X, Y, 40, 67, Rascunho.hDC, 0, 0, SRCCOPY) Else If Qual_Hdc = 0 Then a = bitblt(Pintura.hDC, x_antigo, y_antigo - 67, 40, 67, Guarda_Fundo.hDC, x_antigo, y_antigo - 67, SRCCOPY) Else a = bitblt(Pintura.hDC, x_antigo, y_antigo, 40, 67, Guarda_Fundo.hDC, x_antigo, y_antigo, SRCCOPY) Qual_Hdc = 0 End If 'copia o fundo para o rascunho r = bitblt(Rascunho.hDC, 0, 0, 40, 67, Guarda_Fundo.hDC, X, Y - 67, SRCCOPY) 'joga o cursor r = bitblt(Rascunho.hDC, 0, 0, 40, 67, Branco(0).hDC, 0, 0, SRCand) r = bitblt(Rascunho.hDC, 0, 0, 40, 67, Preto(0).hDC, 0, 0, SRCPaint) r = bitblt(Pintura.hDC, X, Y - 67, 40, 67, Rascunho.hDC, 0, 0, SRCCOPY) End If x_antigo = X y_antigo = Y x_antigo_P = X + Painel.Left y_antigo_P = Y + Painel.Top 'volta o mouse para o formato normal If Qual_Hdc = 0 Then a = bitblt(Pintura.hDC, x_antigo, y_antigo - 67, 40, 67, Guarda_Fundo.hDC, x_antigo, y_antigo - 67, SRCCOPY) Else a = bitblt(Pintura.hDC, x_antigo, y_antigo, 40, 67, Guarda_Fundo.hDC, x_antigo, y_antigo, SRCCOPY) Qual_Hdc = 0 End If If X >= 0 And X <= 135 And Y >= 402 And Y <= 421 Then wRtn = SetCapture(Pintura.hWnd) hCursorPrev = GetCursor() wRtn = SetCursor(hCursorPrev) If Menu_Picture_Ativo = 1 Then Menu_Click Menu_Picture_Ativo = 0 End If Else Menu_Picture_Ativo = 1 wRtn = SetCapture(Menu_Picture.hWnd) hCursorPrev = GetCursor() wRtn = SetCursor(hCursorPrev) End If End If End Sub Sub Fraco () 'Pintura.AutoRedraw = False 'mousemove wRtn = SetCapture(Pintura.hWnd) hCursorPrev = GetCursor() wRtn = SetCursor(hCursor) If desativado = 0 Then Exit Sub If Y < 401 Then If Qual_Hdc = 1 Then r = bitblt(Pintura.hDC, x_antigo, y_antigo, 40, 67, Guarda_Fundo.hDC, x_antigo, y_antigo, SRCCOPY) Else a = bitblt(Pintura.hDC, x_antigo, y_antigo - 67, 40, 67, Guarda_Fundo.hDC, x_antigo, y_antigo - 67, SRCCOPY) Qual_Hdc = 1 End If 'copia o fundo para o rascunho r = bitblt(Rascunho.hDC, 0, 0, 40, 67, Guarda_Fundo.hDC, X, Y, SRCCOPY) 'joga o cursor r = bitblt(Rascunho.hDC, 0, 0, 40, 67, Branco(1).hDC, 0, 0, SRCand) r = bitblt(Rascunho.hDC, 0, 0, 40, 67, Preto(1).hDC, 0, 0, SRCPaint) r = bitblt(Pintura.hDC, X, Y, 40, 67, Rascunho.hDC, 0, 0, SRCCOPY) If Qual_Hdc = 0 Then a = bitblt(Pintura.hDC, x_antigo, y_antigo - 67, 40, 67, Guarda_Fundo.hDC, x_antigo, y_antigo - 67, SRCCOPY) Else a = bitblt(Pintura.hDC, x_antigo, y_antigo, 40, 67, Guarda_Fundo.hDC, x_antigo, y_antigo, SRCCOPY) Qual_Hdc = 0 End If 'copia o fundo para o rascunho r = bitblt(Rascunho.hDC, 0, 0, 40, 67, Guarda_Fundo.hDC, X, Y - 67, SRCCOPY) 'joga o cursor r = bitblt(Rascunho.hDC, 0, 0, 40, 67, Branco(0).hDC, 0, 0, SRCand) r = bitblt(Rascunho.hDC, 0, 0, 40, 67, Preto(0).hDC, 0, 0, SRCPaint) r = bitblt(Pintura.hDC, X, Y - 67, 40, 67, Rascunho.hDC, 0, 0, SRCCOPY) End If x_antigo = X y_antigo = Y x_antigo_P = X + Painel.Left y_antigo_P = Y + Painel.Top End Sub Sub Menu_Click () If menu.BOuterStyle = 1 Then Menu_Ativo = 0 menu.BOuterStyle = 2 Menu_Picture.Visible = False For i = 0 To 6 Menu_Item(i).Visible = False Next For i = 0 To 2 fximage2(i).Visible = False Next Menu_Ativo = 1 menu.BOuterStyle = 1 Menu_Picture.Visible = True Menu_Item(6).Visible = True End If End Sub Sub Menu_Desenhos_Click (index As Integer) End Sub Sub Menu_Item_Click (index As Integer) Mousepointer = 11 Menu_Click Menu_Ativo = 1 Select Case index Case 0 Pintura.AutoRedraw = True Pinta_Desenho Pintura.AutoRedraw = False a = bitblt(Guarda_Fundo.hDC, 0, 0, 643, 404, Pintura.hDC, 0, 0, SRCCOPY) Case 1 Pintura.AutoRedraw = True Pintura.Picture = LoadPicture(DIR_TELAS & Nome_Desenho_PB()) a = bitblt(Pintura.hDC, 0, 404, 643, 519, Guarda_Fundo.hDC, 0, 404, SRCCOPY) Pintura.AutoRedraw = False a = bitblt(Guarda_Fundo.hDC, 0, 0, 643, 404, Pintura.hDC, 0, 0, SRCCOPY) Case 2 Case 3 Usuario.Show Hide Case 4 Case 5 Case 6 End End Select Menu_Ativo = 0 Menu_Picture_Ativo = 0 Mousepointer = 0 End Sub Sub Menu_Item_Notify (index As Integer) If index - 1 > -1 Then If index - 1 <= 2 Then fximage2(index - 1).Visible = True End If Menu_Item(index - 1).Visible = True Menu_Item(index - 1).ZOrder 0 End If 'If index = 0 Then ' a = bitblt(Guarda_Fundo.hDC, 0, 0, 643, 404, Pintura.hDC, 0, 0, SRCCOPY) ' Pintura.AutoRedraw = True ' a = bitblt(Pintura.hDC, 0, 0, 643, 404, Guarda_Fundo.hDC, 0, 0, SRCCOPY) ' Pintura.AutoRedraw = False ' Menu_Picture.Visible = False 'End If End Sub Sub Menu_Prin_Click (index As Integer) End Sub Sub Menu_Prin_Notify (index As Integer) End Sub Sub Timer1_Timer () Timer1.Enabled = False Guarda_Fundo.Width = 643 Guarda_Fundo.Height = 519 a = bitblt(Guarda_Fundo.hDC, 0, 0, 643, 404, Pintura.hDC, 0, 0, SRCCOPY) a = bitblt(Guarda_Fundo.hDC, 0, 404, 643, 117, Picture_T tulo.hDC, 0, 0, SRCCOPY) Picture_T tulo.Visible = False a = bitblt(Pintura.hDC, 0, 0, 643, 519, Guarda_Fundo.hDC, 0, 0, SRCCOPY) All_Balde.Visible = False desativado = 1 End Sub Sub T tulo_Click () 'Pintura.AutoRedraw = False tulo.BOuterStyle = 1 Then T tulo.BOuterStyle = 2 ' Pintura.AutoRedraw = True Pintura.Refresh T tulo.BOuterStyle = 1 End If End Sub Sub Tom_Bot o_Click (index As Integer) Tom_var = index Tom = LoadPicture(DIR_TELAS & "tom" & index & ".bmp") All_Balde = LoadPicture(DIR_TELAS & "baldes" & index & ".bmp") All_Balde.Visible = True Picture_T tulo.Visible = True tulo.Refresh a = bitblt(Guarda_Fundo.hDC, 0, 404, 643, 117, Picture_T tulo.hDC, 0, 0, SRCCOPY) Pintura.AutoRedraw = True a = bitblt(Pintura.hDC, 0, 0, 643, 519, Guarda_Fundo.hDC, 0, 0, SRCCOPY) Pintura.AutoRedraw = False All_Balde.Visible = False Picture_T tulo.Visible = False End Sub